home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / comm / cs_mac06.zip / LOGON.MAC < prev    next >
Text File  |  1992-08-23  |  14KB  |  351 lines
  1.  
  2.  ┌────────────────────────────────┐
  3.  │  Chuck Seyboldt's COMMO Macro  │   CS-MAC06:LOGON.MAC
  4.  └────────────────────────────────┘
  5.  
  6. Contents:       Your Voice and data numbers, birthdate, etc.
  7.                 Generic logon routine (:glr)
  8.                 Test for ACTION (and call to ACTION.MAC)
  9.                 Test for .REP
  10.  
  11. Called from:    TABLE.MAC
  12.  
  13. Control passes to:  ACTION.MAC,action    (if ACTION.%abbr exists)
  14.                     COMMO.MAC,aln        (multi-dialer routine)
  15.  
  16.   *  Edit lines with a "!" in column 1.
  17.  
  18.   *  This file contains a stand-alone logon macro.
  19.   *  It is designed to get you quickest to the "Main BBS Command?"
  20.   *  prompt.  BBSware specific prompts are delivered from TABLE.MAC.
  21.   *  After logon, a MAILRUN is made.  If the Commo variable BBSID is
  22.   *  empty, control passes back to COMMO.MAC.
  23.  
  24.   *  This works for PCBoards, for the RBBS run by Jim Goodenough,
  25.   *  Directory Assistance  (1,707 538-8710), for Shad Muegge's
  26.   *  BABBLE BBS (1,707 538-1507), for Mark Turner's ESCape running
  27.   *  GAP software (1,714 698-9568), for Mike Martell's Wolf's Moon
  28.   *  running Spitfire (1,207 772-9093), and possibly for Wildcat!
  29.   *  Always adding more prompts to accomodate more BBS types.
  30.   *  In general, turn any BBS HOTKEY option to OFF.
  31.  
  32.  ┌─────────────────────────────┐
  33.  │  Standard Online Responses  │  (For the Generic Logon Routine)
  34.  └─────────────────────────────┘
  35.  
  36.   *  Responses to common logging-on prompts.
  37.   *  Put in  *YOUR*  name.  Notice that I have a different response
  38.   *  to the "First name?" prompt for the BBS called Directory Assistance.
  39.  
  40.  {:retu} {:esc} {macl commo.mac}
  41.  
  42.  {:lof}  {comp abbr,di} {ifco lof1} ;If BBS=DIRASNT, send TURBO login
  43.          {send ~%name%|}     {retu} ; otherwise, just send name.
  44.  {:lof1} {send %name %_pas !main|}
  45.          {alarm 1} {retu}
  46.  
  47. !{:lov}  {send ~2078929168|} {retu} ;Voice Phone Number verification
  48. !{:lod}  {send ~2077614782|} {retu} ;Data  Phone Number verification
  49. !{:lob}  {send ~042355|}     {retu} ;Birthday verification
  50. !{:loq}  {send ~y q ns|}     {retu} ;choose ANSI colors (Y/n)
  51.  {:|}    {send ~|}           {retu}
  52.  {:c|}   {send ~c|}          {retu}
  53.  {:g|}   {send ~g|}          {retu}
  54.  {:n|}   {send ~n|}          {retu}
  55.  {:q|}   {send ~q|}          {retu}
  56.  {:s|}   {send ~s|}          {retu}
  57.  {:y|}   {send ~y|}          {retu}
  58.  {:z|}   {send ~z|}          {retu}
  59.  {:0|}   {send ~0|}          {retu}
  60.  {:los}  {send ~ }           {retu} ;this is how to send "SpaceBar"
  61.  {:loe}  {send ~~^[^[}       {retu} ;this is sending two "Esc" presses
  62.  {:pas|} {send %_pas|} {retu} ;this sends your password
  63.  
  64.  ┌─────────────────────────┐
  65.  │  Generic Logon Routine  │
  66.  └─────────────────────────┘
  67.  
  68.   *  This logon macro works for times you DON'T want to
  69.   *  make a mail run.  It is designed to get you quickest to the
  70.   *  "Main BBS Command?" prompt.
  71.  
  72.   *  It is necessary that this routine be reached via TABLE.MAC
  73.   *  since several BBS prompts are set there.
  74.  
  75.  {:glr}
  76.           disp ,,,Logging on Now^m^j^j
  77.           spdc n                    ;Blind display (for the bold)
  78.  
  79.          {sete-p0 alm}
  80.          {ifca ,alm}                ;Skip routine if OFFline
  81.          {setv nodl} {setv count}   ;set some working variables
  82.          {capture n}                ;turnoff capture if open
  83.          {setlook 60,bye,10,|}
  84.          {push}                     ;push + pops ≈ call
  85.          {golook n|,A>?}            ;just say 'no' RBBS prompt
  86.          {golook n|,change?}        ;PCBoard  "Language" prompt
  87.          {golook loq,r)=no?}        ;PCBoard  "Graphics" prompt
  88.          {golook loq, yes :}        ;GAP      "Graphics" prompt
  89.          {golook y|,orrect?}        ;send 'y' when caller ID is asked
  90.          {golook y|,? [y/N]}        ;Spitfire "Graphics" prompt
  91.          {golook loe, twice}        ;send Escape twice  (Front End)
  92.          {golook loe, (ESC)}        ;send Escape twice  (Binkley)
  93.          {golook onl,mmand?}        ;Logged on via "quick" RBBS logon
  94.          {golook lof,%nam_pmt}      ;send name (Prompt from TABLE.MAC)
  95.          {lookfor Password}         ;Logon macro now has two "lookfors"
  96.          {pops}                     ; Why?  To accomodate more golooks.
  97.          {pause 1}
  98.          {call pas|}                ;send password
  99.          {push}
  100.          {setlook 60,bye,15,n|}     ;Start of "Logon, Part II"
  101.  
  102.          {golook %bypass1}          ;These BBSware specific 'pause-
  103.          {golook %bypass2}          ;  avoiding-responses' are set in
  104.          {golook %bypass3}          ;  TABLE.MAC
  105.  
  106.          {golo n|,More?}            ;just say 'no' to "More?"
  107.          {golo n|,inue?}            ;just say 'no' to "Continue?"
  108.          {golo n|,=yes?}            ;just say 'no' to "mail scan"
  109.  
  110.          {golo lod,TA ph}           ;More Wildcat! prompts <sigh>
  111.          {golo n|,menu? [}          ;No to Wildcat! bulletin menu
  112.          {golo c|,se- [C]}          ;[C]ontinue to -pause- prompt
  113.  
  114.          {golook n|,N)?}            ;just say 'no' RBBS prompt
  115.          {golook n|,[Y/n]?}         ;just say 'no' to "mail scan"
  116.          {golook pas|,Wrong}        ;resend password if necessary
  117.  
  118.          {lookfor %bbs_pmt}         ;Generic Logon Complete
  119.  {:onl}  {spdc y}    {pops}         ;All set.  Logged-ON.
  120.  
  121.  ┌─────────────────────────┐
  122.  │  Call ACTION Processor  │
  123.  └─────────────────────────┘
  124.  
  125.  {ifex %_hom%action.%abbr%,act,noact}          ;CALL "ACTION processor"
  126.  {:act}  {alar 1} {paus 1} {disp ,,,^j^j}
  127.          {disp ,18,1E,▌ 'S' to skip ACTION  ■  Any other key continues ▐}
  128.          {disp ,,,^m}
  129.          {setg 15,doact,n}                     ;if response is <CR>, do!
  130.          {gets-h resp,1,doact}                 ;using Commo for timed branch
  131.          {comp resp,s} {ifco noact}            ;15 second delay, default=do!
  132. {:doact} {macl action.mac,action}              ;ACTION.MAC Returns to :noact
  133.  
  134.  ┌─────────────────────────┐
  135.  │  MailRun Routine Start  │
  136.  └─────────────────────────┘
  137.  
  138.  {:noact}{comp bbsid}                          ;Check %bbsid variable
  139.          {ifco retu}                           ;If empty, quit macro here
  140.          {ifca ,retu}                          ;If Offline, quit here
  141.  
  142.  ┌───────────────────┐
  143.  │  MailRun Routine  │
  144.  └───────────────────┘
  145.  
  146.   *  Checking for a .REP file.  If a REP exists, you are offered
  147.   *  the option to only upload those replies.  But, the default action
  148.   *  is to get a QWK.  This way, unattended sessions fetch a .QWK
  149.   *  Or, by putting a SKIP.NL file in your MAILDIR, you can skip the
  150.   *  attempt to download mail from the "NLBBS".
  151.  
  152.          {ifex %repdr\%bbsid.rep,ask,d_l}      ;GOTO mailrun routines
  153.  {:ask}  {comp skip,%abbr} {ifco n_u}
  154.          {comp skip,y}     {ifco n_u}
  155.          {alar 1} {paus 1} {disp ,,,^j^j}
  156.          {disp ,18,1E,▌ (C)ontinue mail d/l NOW ■ 'S' to skip d/l ▐}
  157.          {disp ,,,^m}
  158.          {setg 15,d_l,n}{gets-h resp,1,d_l}    ;using Commo for timed branch
  159.          {comp resp,c} {ifco d_l}              ;15 second delay, default=d/l
  160.          {comp resp, } {ifco d_l}
  161.          {comp resp,s} {ifco n_u}
  162.  {:n_u}  {setv nodl,y}                         ;flag set to skip mail d/l
  163.  
  164.  ┌───────────────────────────────┐
  165.  │  Get to the Mail Door Prompt  │
  166.  └───────────────────────────────┘
  167.  
  168.  {:d_l}  {ifca ,retu}                          ;return to COMMO.MAC if offline
  169.          {send ~~%dorno}
  170.          {setl 60,bye,30,%yes}
  171.          {push}
  172.          {golo |,inue>}             ;for Jimmer  Startup
  173.          {golo |,inue:}             ;for JetMail Startup
  174.          {golo |,inue?}             ;for MarkMail Startup
  175.          {golo y|,inue...}          ;for QM4 prompt
  176.          {golo ndl,sorry,}          ;for T.A.G. unable to enter door
  177.          {look %md_pmt}             ;from TABLE.MAC prompt table
  178.  
  179.  ┌─────────────────┐
  180.  │  Upload a .REP  │
  181.  └─────────────────┘
  182.  
  183.   *  If a .REP exists, it is sent before any attempt is made to download.
  184.   *  This uses DSZ's -u option to erase the .REP after a successful upload.
  185.   *  Hence one reason to register your copy of DSZ <g>.
  186.  
  187.  {:qul}  {pops}
  188.          {ifca ,retu}
  189.          {ifex %repdr\%bbsid.rep,,nup}
  190.          {send ~~u|}
  191.          {setl 30,bye,,}
  192.          {call ulrep-%mprot}        ;%mprot selected in COMMO.MAC
  193.          {setl 60,bye,15,|}
  194.          {push}
  195.          {golo |,inue?}             ;for MarkMail
  196.          {golo y|,inue...}          ;for QM4 prompt
  197.          {look %md_pmt}
  198.  
  199.  ┌───────────────────┐
  200.  │  Download a .QWK  │
  201.  └───────────────────┘
  202.  
  203.   *  The ":nup" section would be skipped if you decided to skip .QWK
  204.   *  downloading in the "Mailrun Routine Start, :ask" section.
  205.  
  206.  {:nup}  {pops}
  207.          {comp nodl,y} {ifco byz}   ;Skip d/l if %nodl=y
  208.          {send ~~~d|}               ;Otherwise, scan messages
  209.          {setl 300,bye,90,%yes}
  210.          {golo ndl,%mt_qwk}         ;eMpTy .QWK message (from TABLE.MAC)
  211.          {golo %md_brnch}           ;Branch, refer to MAILware TABLE.MAC
  212.          {look Message Count}
  213.          {goto qdl}
  214.  
  215.  ┌──────────────────┐
  216.  │  Count Messages  │               ;Comments relate to MarkMail2
  217.  └──────────────────┘
  218.  
  219.   *  This section will skip the RENQWK and any attempt to download if
  220.   *  MarkMail scans less than 30 messages for your .QWK packet.
  221.  
  222.  {:mc2}  {setg ,,l,^m}
  223.          {gets count,15}            ;get total message count  (w/ANSI)
  224.          {subs count,-4,4,%count}   ;take last 4 characters (total)
  225.          {look sages: }             ;MM2 personal message count
  226.  {:mc1}  {gets person,15}           ;get personal message count (w/ANSI)
  227.          {subs person,-4,4,%person} ;take last 4 characters (personal)
  228.          {look %xfer_pmt}
  229.          {comp person,1}            ;check for personal messages
  230.          {ifco-GE qdl}              ; if any, do download ... but ...
  231.          {comp count,30}            ;if less than 30 total messages,
  232.          {ifco-L ndl}               ; then skip download
  233.  
  234.  ┌────────────────────────────────┐
  235.  │  .QWK rename and DSZ Download  │
  236.  └────────────────────────────────┘
  237.  
  238.   *  Renaming is much faster with one call to a batch file than several
  239.   *  COMMO calls to command.com.  Passing these variables from COMMO.MAC
  240.   *  to renqwk.bat.  %1 = %maildir : %2 = %nodeid : %3 = %abbr
  241.  
  242.  ┌─────────────────  renqwk.bat  ─┐    <--  cut here  --
  243.  │  @echo off                     │
  244.  │  ctty nul                      │
  245.  │                                │
  246.  │  del %1\%3__5.qwk              │
  247.  │  ren %1\%3__4.qwk  %3__5.qwk   │
  248.  │  ren %1\%3__3.qwk  %3__4.qwk   │
  249.  │  ren %1\%3__2.qwk  %3__3.qwk   │
  250.  │  ren %1\%3__1.qwk  %3__2.qwk   │
  251.  │  ren %1\%2.qwk     %3__1.qwk   │
  252.  │                                │
  253.  │  ctty con                      │
  254.  └────────────────────────────────┘    <--  cut here  --
  255.  
  256.  {:qdl}  {ifex %qwkdr\%bbsid.qwk,,gonow} ;check for .QWK before rename
  257.          {exec-n %_hom%renqwk %qwkdr %bbsid %abbr}    ;.QWKfile rename
  258.  {:gonow}{send ~~%yes}
  259.          {call dlqwk-%mprot}
  260.  {:ndl}  {setl 30,bye,5,%no}
  261.          {push}
  262.          {comp md_pmt,--->}         ;DCQwk does not have a logoff
  263.          {ifco ,notag}              ; from door facility.  This
  264.          {setv md_pmt,%bbs_pmt}     ; returns to BBS for logoff.
  265.          {golo q|,--->}
  266.  
  267.  {:notag}{golo y|,inue...}          ;for QM4 "continue" prompt
  268.          {golo |,inue?}             ;for MarkMail
  269.          {look %md_pmt}             ;from MailDoor prompt table
  270.  
  271.  ┌──────────────────────┐
  272.  │  LogOFF or Stay on?  │
  273.  └──────────────────────┘
  274.  
  275.   *  Again a choice.  Default is to end the connection, but you may
  276.   *  stay ONLINE if you wish.  The macro is setup to open a capture
  277.   *  file if you choose to stay online.
  278.  
  279.  {:byz}  {pops}
  280.          {paus 1} {alarm 1} {parm ,,,,0} {disp ,,,^j^j}
  281.          {disp ,18,1E,▌ 'G' to LogOFF NOW ■ SpaceBar to stay ON  ▐}
  282.          {disp ,,,^m}
  283.          {setg 10,bye,n} {gets-h resp,1,bye};using Commo for timed branch
  284.          {comp resp,g} {ifco bye}           ;10 second delay, default=bye
  285.          {comp resp, } {ifco sta}
  286.  {:sta}  {clea}
  287.          {setv bbsid}
  288.          {macl commo.mac,chm}               ;commo.mac:chm opens capture file
  289.  
  290.  {:bye}  {send %bye%%rs}
  291.          {setl 10,,,}
  292.          {push}
  293.          {golo loe,<esc>}           ;stifle host delays
  294.          {golo y|, log off }
  295.          {golo n|, comment }
  296.          {look NO CARRIER^m^j}      ;comes from modem
  297.          {pops}
  298.  {:bya}  {hang y}
  299.          {setv lastcall,%bbsid}     ;save lastcall info
  300.          {setv bbsid} {setv dorno}  ;and recycle variables
  301.          {setv nodl}
  302.          {macl commo.mac,%rflag}    ;Dial next marked BBS
  303.  
  304.  {:alm}  {macl commo.mac,ale}       ;if ESCAPE is used to exit
  305.                                     ; this macro routine
  306.  
  307.  ┌──────────────────────────────────────┐
  308.  │  .QWK and .REP protocol subroutines  │
  309.  └──────────────────────────────────────┘
  310.  
  311. {:ulrep-z} {:ulrep-}                ;default protocol is "Z"
  312.          {look ^xB01}
  313.          {exec-n %dszprog port %_por ha bo sz -mu %repdr\%bbsid.rep}
  314.          {retu}
  315.  
  316. {:ulrep-y}
  317.          {paus 10}
  318.          {symo-k %repdr\%bbsid.rep}
  319.          {ifer 1,,delrep}
  320.          {retu}
  321.  
  322. {:ulrep-x}
  323.          {paus 10}
  324.          {sxmo-y %repdr\%bbsid.rep}
  325.          {ifer 1,,delrep}
  326.          {retu}
  327.  
  328. {:delrep}
  329.          {exec-n del %repdr\%bbsid.rep}
  330.          {retu}
  331.  
  332. {:dlqwk-z} {:dlqwk-}                ;default protocol is "Z"
  333.          {push}
  334.          {golo g|,<G> to start}     ;for DCQwk/TAG
  335.          {look ^xB00}
  336.          {pops}
  337.          {exec-N %dszprog port %_por ha bo rz -mr %qwkdr}
  338.          {retu}
  339.  
  340. {:dlqwk-y}
  341.          {paus 10}
  342.          {send g}
  343.          {rymo-y %qwkdr}            ;overwrite exiting files
  344.          {retu}
  345.  
  346. {:dlqwk-x}
  347.          {paus 10}
  348.          {send g}
  349.          {rxmo-y %qwkdr\%bbsid.qwk}
  350.          {retu}
  351.